O6002(ROUGH SQUARE/ RECTANGLE)
(WITH ROTATION)
(WORKS)

(FORMAT G65/G66 QTXYHVKRZEFS)
(B = #2 - G68 ROTATION FROM 0 DEGREES)
(Q = #17 - STEPOVER IN Z/ DOC)
(T = #20 - TOOL DIAMETER)
(X = #24 - FINAL SIZE -X- DIM.)
(Y = #25 - FINAL SIZE -Y- DIM.)
(H = #11 - STOCK WIDTH/ HORIZONTAL)
(V = #22 - STOCK HEIGHT/ VERTICAL)
(K = #6 - PART CORNER RAD./ SIDES)
(R = #18 - R PLANE)
(Z = #26 - Z START ZERO)
(E = #8 - END OF PROFILE IN Z)
(F = #9 - FEEDRATE)
(***********************************)

#100=ABS[#26]-ABS[#8]
#100=ABS[#100]
IF[[#26*#8]GE0]GOTO1
#100=ABS[#26]+ABS[#8]
N1#101=ROUND[#100/#17]
#102=#100/#101
IF[#102GT[#100/2]]GOTO100
#103=#5001
#104=[#103-.1]-[[#20/2]+[#11/2]]
#105=#5002
#106=[#105+.1]+[[#20/2]+[#22/2]]
#121=#103+[[#24/2]-#6]
#131=#105+[[#25/2]-#6]
#122=#103-[[#24/2]-#6]
#132=#105+[[#25/2]-#6]
#123=#103-[[#24/2]-#6]
#133=#105-[[#25/2]-#6]
#124=#103+[[#24/2]-#6]
#134=#105-[[#25/2]-#6]
#107=[#20/2]+#6
#530=#2
IF[#2GT180.]THEN#530=#2-360.
G68R#530
G0G90X#104Y#106
Z[#26+.1]
G1Z#26F#9
#108=#5003
WHILE[#101GE0]DO1
IF[#101LT0]GOTO10
#101=#101-1.
G1Z#108F#9
G41Y[#132+#107]
X#121
G02X[#121+#107]Y#131J-#107F[#9/2]
G1Y#134F#9
G02X#124Y[#134-#107]I-#107F[#9/2]
G1X#123F#9
G02X[#123-#107]Y#133J#107F[#9/2]
G1Y#132F#9
G02X#122Y[#132+#107]I#107F[#9/2]
G03X[#122+.1]Y[[#132+#107]+.1]J.1
G0Z[#108+.1]
G40X#104
#108=#108-#102
END1
N10G0G90Z#18
G69
X#103Y#105
M99
N100#3000= 1( Q VALUE TOO BIG )
